Revista do CD-ROM 39

home *** CD-ROM | disk | FTP | other *** search

/ Revista do CD-ROM 39 / CD-ROM 39 / CD-ROM 39.iso / COLORDIC / MOUSE / DICIONAR.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-21 | 39.7 KB | 1,135 lines

VERSION 2.00 Begin Form Dicion BackColor = &H00000000& BorderStyle = 0 'None ClientHeight = 4020 ClientLeft = 1095 ClientTop = 1485 ClientWidth = 7365 Height = 4425 Left = 1035 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 268 ScaleMode = 3 'Pixel ScaleWidth = 491 Top = 1140 Width = 7485 WindowState = 2 'Maximized Begin SSPanel Panel3D1 BackColor = &H0000FFFF& BevelWidth = 0 BorderWidth = 1 Height = 255 Left = 30 TabIndex = 0 Top = 6030 Width = 9555 Begin FXLabel Menu Prop46 = 0 'Click on "..." for About Box Alignment = 6 'Center - TOP AutoSize = 0 'False BackColor = &H0000FFFF& BackFill = 0 'Screen BackStyle = 1 'Opaque BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 2 CancelMode = 0 'None Caption = "MENU" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 0 'None FontBlockSize = 1 FontDropX = 1 FontDropY = 1 FontOutlineColor= &H00000000& FontShadowColor = &H00FFFFFF& ForeColor = &H000000FF& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 255 HFileName = "" Left = 60 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = 0 'False NotifyDelay = 0 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 8 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 0 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1965 WordWrap = -1 'True End Begin FXLabel Bot o_Usuario Prop46 = 0 'Click on "..." for About Box Alignment = 6 'Center - TOP AutoSize = 0 'False BackColor = &H0000FFFF& BackFill = 0 'Screen BackStyle = 1 'Opaque BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 2 CancelMode = 0 'None Caption = "IKO" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 0 'None FontBlockSize = 1 FontDropX = 1 FontDropY = 1 FontOutlineColor= &H00000000& FontShadowColor = &H00FFFFFF& ForeColor = &H000000FF& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 255 HFileName = "" Left = 7680 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = 0 'False NotifyDelay = 0 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 10 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 0 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1845 WordWrap = -1 'True End Begin FXLabel T tulo Prop46 = 0 'Click on "..." for About Box Alignment = 6 'Center - TOP AutoSize = 0 'False BackColor = &H0000FFFF& BackFill = 0 'Screen BackStyle = 1 'Opaque BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 2 CancelMode = 0 'None Caption = "" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 0 'None FontBlockSize = 1 FontDropX = 1 FontDropY = 1 FontOutlineColor= &H00000000& FontShadowColor = &H00FFFFFF& ForeColor = &H000000FF& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 255 HFileName = "" Left = 2025 MDelay = 0 MEffect = 0 'No Effect MGrain = 8 Multitask = -1 'True Notify = 0 'False NotifyDelay = 0 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 9 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 0 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 5625 WordWrap = -1 'True End Begin FXLabel FXLabel1 Prop46 = 0 'Click on "..." for About Box Alignment = 6 'Center - TOP AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 1 'Opaque BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 2 CancelMode = 0 'None Caption = "" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 0 'None FontBlockSize = 1 FontDropX = 1 FontDropY = 1 FontOutlineColor= &H00000000& FontShadowColor = &H00FFFFFF& ForeColor = &H000000FF& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 255 HFileName = "" Left = 2040 MDelay = 0 MEffect = 0 'No Effect MGrain = 8 Multitask = -1 'True Notify = 0 'False NotifyDelay = 0 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 18 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 0 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 5625 WordWrap = -1 'True End End Begin PictureBox Menu_Picture BackColor = &H00FFFFFF& Height = 1785 Left = 60 Picture = DICIONAR.FRX:0000 ScaleHeight = 1755 ScaleWidth = 1965 TabIndex = 13 Top = 4260 Visible = 0 'False Width = 1995 Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 7 'Center - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "&Sair" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 6 Left = 30 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 14 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 1290 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 7 'Center - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "&Ajuda" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 5 Left = 30 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 15 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 870 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 7 'Center - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "&Imprime" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 4 Left = 30 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 17 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 450 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 7 'Center - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "&Galeria" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 3 Left = 30 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 16 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 30 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End End Begin PictureBox Painel BorderStyle = 0 'None ForeColor = &H00FFFFFF& Height = 1215 Left = 0 Picture = DICIONAR.FRX:D384 ScaleHeight = 81 ScaleMode = 3 'Pixel ScaleWidth = 641 TabIndex = 4 Top = 6300 Width = 9615 Begin CommandButton Command1 Caption = "Command1" Height = 435 Left = 8940 TabIndex = 5 Top = 930 Width = 585 End Begin Label Dire BackStyle = 0 'Transparent ForeColor = &H000000FF& Height = 645 Index = 1 Left = 8940 TabIndex = 12 Top = 150 Width = 555 End Begin Label Dire BackStyle = 0 'Transparent ForeColor = &H000000FF& Height = 645 Index = 0 Left = 0 TabIndex = 11 Top = 180 Width = 555 End Begin Label Bot ngua BackStyle = 0 'Transparent Height = 855 Index = 1 Left = 3060 TabIndex = 2 Top = 240 Width = 1155 End Begin Label Bot ngua BackStyle = 0 'Transparent Height = 855 Index = 0 Left = 1890 TabIndex = 3 Top = 240 Width = 1155 End Begin Label A BackStyle = 0 'Transparent ForeColor = &H000000FF& Height = 855 Index = 1 Left = 4800 TabIndex = 6 Top = 0 Width = 1215 End Begin Label A BackStyle = 0 'Transparent ForeColor = &H000000FF& Height = 915 Index = 0 Left = 3600 TabIndex = 7 Top = 0 Width = 1215 End End Begin MMControl MMControl1 BackVisible = 0 'False EjectVisible = 0 'False Height = 375 Left = 2310 RecordVisible = 0 'False StepVisible = 0 'False TabIndex = 1 Top = 150 UpdateInterval = 0 Visible = 0 'False Width = 2205 End Begin FXImage FXImage1 Prop25 = 0 'Click on "..." for About Box AutoSize = 1 'Resize Control To Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 6045 HFileName = "" Left = 0 MDelay = 25 MEffect = 36 'Double Blind MGrain = 30 Multitask = -1 'True Notify = 0 'False NotifyDelay = 0 Palette = 0 'Optimized Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 0 Transparent = 0 'False TransparentColor= &H00000000& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 9600 End Dim var As Integer Sub A o_Click (index As Integer) MOUSEPOINTER = 11 If index = 0 Then 'pintura 'ativa o form pintura Pintura.Enabled = True 'tem que carregar o picture aqui por causa do floodfill na pintura 'MsgBox Str(Array_Antigo) If Array_Ativo <> Array_Antigo Then Pintura.Picture = LoadPicture(DIR_TELAS & Nome_Desenho_PB()) If Lingua = 0 Then Pintura.T tulo.Caption = T tulo_Port(Array_Ativo) Else Pintura.T tulo.Caption = T tulo_Ingles(Array_Ativo) End If Pintura.Visible = True Pintura.FillColor = &HFFFFFF Pintura.Show Dicion rio.Hide Else 'dicion painel = LoadPicture(DIR_TELAS & "painel6.bmp") Atualiza_T A o(0).Visible = True A o(0).Left = 50 A o(1).Visible = False Bot ngua(0).Visible = True Bot ngua(1).Visible = True End If MOUSEPOINTER = 0 End Sub Sub Atualiza_HSP () ngua = 0 Then fximage1.HFileName = DIR_PORT_HSP & Left(Nome_Desenho(Array_Ativo), Len(Nome_Desenho(Array_Ativo)) - 4) & ".HSP" fximage1.HFileName = DIR_ING_HSP & Left(Nome_Desenho(Array_Ativo), Len(Nome_Desenho(Array_Ativo)) - 4) & ".HSP" End If 'MsgBox DIR_ING_HSP & Left(Nome_Desenho(Array_Ativo), Len(Nome_Desenho(Array_Ativo)) - 4) & ".HSP" 'MsgBox fximage1.HFileName End Sub Sub Atualiza_T tulo () ngua = 0 Then 'T tulo em portugues T tulo.Caption = T tulo_Port(Array_Ativo) 'MsgBox DIR_PORT_HSP & Left(Nome_Desenho(Array_ATivo), Len(Nome_Desenho(Array_ATivo)) - 3) & "HSP" fximage1.HFileName = DIR_PORT_HSP & Left(Nome_Desenho(Array_Ativo), Len(Nome_Desenho(Array_Ativo)) - 3) & "HSP" Else 'T tulo em ingles T tulo.Caption = T tulo_Ingles(Array_Ativo) fximage1.HFileName = DIR_ING_HSP & Left(Nome_Desenho(Array_Ativo), Len(Nome_Desenho(Array_Ativo)) - 3) & "HSP" End If End Sub Sub Bot ngua_Click (index As Integer) MOUSEPOINTER = 11 som_liberado = 0 ngua = index Atualiza_HSP tulo.Caption = "" 'DoEvents If index = 0 Then painel = LoadPicture(DIR_TELAS & "painel6.bmp") painel = LoadPicture(DIR_TELAS & "painel5.bmp") End If MOUSEPOINTER = 0 End Sub Sub Dire o_Click (index As Integer) MOUSEPOINTER = 11 Array_Antigo = Array_Ativo If index = 0 Then Array_Ativo = Array_Ativo - 1 Array_Ativo = Array_Ativo + 1 End If If Array_Ativo < 0 Then Array_Ativo = 19 ElseIf Array_Ativo = 20 Then Array_Ativo = 0 End If 'desativa o bot o menu e troca o efeito If menu.BOuterStyle = 1 Then Menu_Click 'MsgBox DIR_TELAS & Nome_Desenho(Array_Ativo) fximage1.Picture = LoadPicture(DIR_TELAS & Nome_Desenho(Array_Ativo)) 'fximage1.Picture = LoadPicture(DIR_TELAS & "QUANINA.BMP")Atualiza_T Atualiza_T MOUSEPOINTER = 0 End Sub Sub Form_Activate () Atualiza_T If Array_Ativo <> Array_Antigo Then fximage1.Picture = LoadPicture(DIR_TELAS & Nome_Desenho(Array_Ativo)) fximage1.HFileName = DIR_PORT_HSP & Left(Nome_Desenho(Array_Ativo), Len(Nome_Desenho(Array_Ativo)) - 3) & "HSP" End If o_Usuario.Caption = Usuario.Nome End Sub Sub Form_Load () Array_Ativo = 0 Array_Antigo = 1 'entra diferente do ativo por causa da condi o de pintura MMControl1.Wait = True MMControl1.DeviceType = "WaveAudio" MMControl1.Notify = True End Sub Sub FXImage1_Click () If som_liberado = 0 Then 'MsgBox Str(fximage1.HID) Hot_Var = fximage1.HName If Hot_Var <> "" Then If l ngua = 0 Then If Val(Right(Trim(Left(Hot_Var, 8)), 1)) > 0 Then Nome_Hot = Trim(Left(Hot_Var, Len(Trim(Left(Hot_Var, 8))) - 1)) Else Nome_Hot = Trim(Left(Hot_Var, 8)) End If Nome_Wave = DIR_PORT_WAVE & Left(Nome_Desenho(Array_Ativo), Len(Nome_Desenho(Array_Ativo)) - 4) & "\" & Nome_Hot & ".wav" 'MsgBox Nome_Wave Else If Val(Right(Trim(Left(Hot_Var, 8)), 1)) > 0 Then Nome_Hot = Trim(Left(Hot_Var, Len(Trim(Left(Hot_Var, 8))) - 1)) Else Nome_Hot = Trim(Left(Hot_Var, 8)) End If Nome_Wave = DIR_ING_WAVE & Left(Nome_Desenho(Array_Ativo), Len(Nome_Desenho(Array_Ativo)) - 4) & "\" & Nome_Hot & ".wav" End If 'MsgBox Nome_Wave 'T tulo.Capture = 1 T tulo.Caption = Mid(Hot_Var, 9, Len(Hot_Var) - 8) 'T tulo.Capture = 2 MMControl1.UpdateInterval = 0 If Not MMControl1.Mode = MCI_MODE_NOT_OPEN Then MMControl1.Command = "Close" End If som_liberado = 1 MMControl1.FileName = Nome_Wave MMControl1.Command = "Open" MMControl1.Command = "play" Else T tulo.Caption = "" End If End If End Sub Sub Label1_Click () Dicion rio.Hide Pintura.Show End Sub Sub Menu_Click () If menu.BOuterStyle = 1 Then menu.BOuterStyle = 2 Menu_Picture.Visible = False DoEvents For i = 3 To 6 Menu_Item(i).Visible = False Next fximage1.MEffect = 36 fximage1.MEffect = 0 menu.BOuterStyle = 1 Menu_Item(6).Visible = True Menu_Picture.Visible = True End If End Sub Sub Menu_Item_Click (index As Integer) Menu_Click Select Case index Case 3 Usuario.Show Hide Case 4 Case 5 Case 6 End End Select End Sub Sub Menu_Item_Notify (index As Integer) If index - 1 > 2 Then Menu_Item(index - 1).Visible = True End If End Sub Sub MMControl1_Done (NotifyCode As Integer) som_liberado = 0 End Sub Sub MMControl1_PlayClick (Cancel As Integer) MMControl1.UpdateInterval = 50 End Sub